home *** CD-ROM | disk | FTP | other *** search
/ Publication 11 / Publication_11_19xx_-_de_Side_B.d64 / eliza [jtr] (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  137 lines
  1. 1 print"[147]":poke 53281,0:poke 53280,0
  2. 2 print"   eliza -eine psychiater-simulation-   "
  3. 3 print"    ein public-domain-program [ab]      [158]"
  4. 4 print" ins deutsche uebersetzt von jakob voos[158]":print"":print"":print""
  5. 5 goto 100
  6. 10 restore
  7. 20 for i=1 to n:read s$:next
  8. 30 return
  9. 100 dim s%(38),r%(38),n%(38)
  10. 110 n1=38:n2=12:n3=118
  11. 120 n=n1+n2+n3:gosub 10
  12. 130 for x=1 to n1
  13. 140 reads%(x),l:r%(x)=s%(x):n%(x)=s%(x)+l-1:next
  14. 160 print"hi, ich bin eliza, wo ist das problem??
  15. 170 sl[178]40
  16. 171 [153]"":i$[178]"":[151] 198,0:[153]"systo";
  17. 172 [161] x$:[139] [194](203)[178]1 [167] 181
  18. 173 [139] x$[178]""[167] 172
  19. 174 [139] [195](i$)[178]0 [175] [198](x$)[178]20 [167] 172
  20. 175 i[178][198](x$):[139] i[179]32 [176] i[177]133 [175] i[179]159 [167] [139] i[179][177]20 [167] 172
  21. 176 [139] [195](i$)[178]sl [175] i[179][177]20 [167] 172
  22. 177 i$[178]i$[170]x$
  23. 178 [153] [199](20);x$;"to";
  24. 179 [139] i[178]20 [167] i$[178][200](i$,[195](i$)[171]2):[137] 172
  25. 180 [137] 172
  26. 181 [153]"cmd "
  27. 200 [129] l[178]1 [164] [195](i$)
  28. 210 [139] [202](i$,l,1)[178]"'"[167] i$[178][200](i$,l[171]1)[170][201](i$,[195](i$)[171]l):[137] 210
  29. 220 [130]
  30. 230 [139] i$[178]p$ [167] [153]"du wiederholst dich ": [137] 170
  31. 280 [140]:s[178]0
  32. 300 [129] k[178]1 [164] n1
  33. 305 [139] s[177]0 [167] 340
  34. 310 [135] k$
  35. 320 [129] a[178]1 [164] [195](i$)[171][195](k$)
  36. 325 [139] [202](i$,a,[195](k$))[178]k$ [167] s[178]k:t[178]a:f$[178]k$
  37. 330 [130]
  38. 340 a[178]0:[130]
  39. 365 [139] s[177]0 [167] k[178]s:l[178]t:[137] 400
  40. 370 k[178]n1:[137] 560
  41. 400 n[178]n1
  42. 405 [141] 10
  43. 410 c$[178]" "[170][201](i$,[195](i$)[171][195](f$)[171]l[170]1)
  44. 420 [129] x[178]1 [164] n2[173]2:[135] s$,r$
  45. 440 [129] l[178]1 [164] [195](c$)
  46. 450 [139] l[170][195](s$)[177][195](c$) [167] 510
  47. 480 [139] [202](c$,l,[195](s$))[179][177]s$[167] 510
  48. 490 c$[178][200](c$,l[171]1)[170]r$[170][201](c$,[195](c$)[171]l[171][195](s$)[170]1):l[178]l[170][195](r$)
  49. 500 [137] 540
  50. 510 [139] l[170][195](r$)[177][195](c$) [167] 540
  51. 520 [139] [202](c$,l,[195](r$))[179][177]r$ [167] 540
  52. 530 c$[178][200](c$,l[171]1)[170]s$[170][201](c$,[195](c$)[171]l[171][195](r$)[170]1)
  53. 540 [130]:[130]
  54. 555 [139] [202](c$,2,1)[178]" "[167] c$[178][201](c$,[195](c$)[171]1)
  55. 560 n[178]n1[170]n2
  56. 570 [141] 10
  57. 580 [129] x[178]1 [164] r%(k):[135] f$:[130] x
  58. 590 r%(k)[178]r%(k)[170]1:[139] r%(k)[177]n%(k) [167] r%(k)[178]s%(k)
  59. 600 [139] [201](f$,1)[179][177]"*"[167] [153] f$:p$[178]i$:[137] 170
  60. 620 [153] [200](f$,[195](f$)[171]1);c$:[137]170
  61. 1050 [131]"kanst'e","kann ich","du bis","dein","ik nix","ik fuel","warum machstnix"
  62. 1060 [131]"warum kanik nix","bist'e","ik nix","ich bin","im ","du ","ich wil","was"
  63. 1070 [131]"wie","wer","wo","wann","warum","name","cause","sorry","traum","hallo"
  64. 1080 [131]"hi ","vielleicht"," nee","dein","immer","denke","wie","ja","freund"
  65. 1090 [131]"computer","eliza","geld","nichts gefunden"
  66. 1230 [131]" bist "," bin ","warst ","war ","du "," ich ","dein ","mein ","ich habe"
  67. 1235 [131]" du hast "," ich bin "," du bist "
  68. 1330 [131]"glaubst du nicht, das ich das kann?"
  69. 1340 [131]"vieleicht willst du dazu faehig sein."
  70. 1350 [131]"willst du das ich es kann?"
  71. 1360 [131]"vielleicht willst du das nicht.","willst du das koennen?"
  72. 1365 [131]"wieso denkst du das von mir?","gefallt es dir zu denken ich waer das?"
  73. 1390 [131]"vielleicht willst du das sein."
  74. 1400 [131]"wuenschst du dir manchmal du waerst so etwas?"
  75. 1410 [131]"glaubst du nicht?","warum nicht?","wuerdest du das gerne koennen?"
  76. 1440 [131]"beunruhigt dich das?","sag mir mehr darueber."
  77. 1460 [131]"fuelst du dich oft so?","ist es fuer dich schoen sich so zu fuelen?"
  78. 1480 [131]"glaubst du wirklich ich wurde das tuen?","vielleicht in guten zeiten."
  79. 1500 [131]"willst du das ich das tuhe?","glaubst du du schaffst das?"
  80. 1520 [131]"warum kannst du nich?","was interresiert dich daran ob ich sowas bin?"
  81. 1540 [131]"fandest du es besser, wenn nich*","in deinen traumen bin ich so etwas"
  82. 1560 [131]"woher weist du ob ich das nix","hastes probirt","vileicht kanste jetz"
  83. 1590 [131]"bist du deshalb zu mir gekommen?","wie lange ist das schon so?"
  84. 1610 [131]"glaubst du, das waere normal???","findest du's gut?"
  85. 1630 [131]"wir reden uber dich - nicht ueber mich!!","oh,ich *"
  86. 1650 [131]"du redest doch nicht etwa von mir, oder?"
  87. 1660 [131]"was wuerde das fuer dich bedeuten?","wiso willst du das?"
  88. 1680 [131]"du schaffst das bestimmt.","wenn du das nie schaffst, was dann?"
  89. 1700 [131]"das will ich auch manchmal.","warum fragst du?"
  90. 1720 [131]"interressiert dich diese frage?"
  91. 1730 [131]"was soll ich jetzt antworten?"
  92. 1740 [131]"was glaubst du?","spielst du oft mit dem gedanken so etwas zu fragen?"
  93. 1760 [131]"was willst du wirklich wissen?","haste das schon mal jemanden gefragt"
  94. 1780 [131]"hast du jemals schonmal etwas dergleichen gefragt?"
  95. 1790 [131]"was denkst du waenn du so etwas fragst?"
  96. 1800 [131]"namen interressieren mich wenig.","namen finde ich unwesentlich."
  97. 1820 [131]"ist das wirklich der grund?","fallen dir keine anderen gruende ein?"
  98. 1840 [131]"erklaert das alles andere?"
  99. 1850 [131]"welche anderen gruende kommen in frage?","entschuldige dich nicht!"
  100. 1870 [131]"entschuldigungen sind nicht notwendig."
  101. 1880 [131]"wie fuelst du dich, wenn du dich entschuldigst?","du bist zu defensiv"
  102. 1900 [131]"was schliesst du aus diesem traum?","traeumst du oft?"
  103. 1920 [131]"welche personen treten in deinen traumen auf","storen dich deine traume"
  104. 1940 [131]"wie geht es dir... erklaere mir dein problem."
  105. 1950 [131]"du scheinst ziehmlich unsicher.","warum so unsicher?"
  106. 1970 [131]"kannst du nich positiver sein","bist du nich sicher?","weist du's nich?"
  107. 2000 [131]"wiso nicht?","sag nicht nein, das ist immer so negativ.","warum nicht?"
  108. 2030 [131]"bist du sicher?","warum nein?","wiso bist du ueberzeugt von meinem?"
  109. 2060 [131]"was ist mit deinem?","weisst du kein specielles beispiel?","wann?"
  110. 2090 [131]"woran denkst du?","wirklich, immer?"
  111. 2110 [131]"glaubst du wirklich?","aber du bist nicht sicher."
  112. 2130 [131]"zweifelst du an dir?","in wiefern?","welche aenlichkeiten gibt es?"
  113. 2160 [131]"was schliesst du aus diesen aenlichkeiten?"
  114. 2170 [131]"welche anderen verbindungen gibt es?"
  115. 2180 [131]"koennten wirklich verbindungen bestehen?","wie? und welche?"
  116. 2200 [131]"du scheinst positiv zu sein.","bist du sicher?","ach so","ich verstehe."
  117. 2240 [131]"wiso bringst du deine freunde mit ein?","hast du sorgen ihretwegen?"
  118. 2260 [131]"triezen dich deine freunde?","bist du sicher, dass du freunde hast?"
  119. 2280 [131]"zwingst du deine freunde manchmal zu etwas?"
  120. 2290 [131]"vielleicht sorgst du dich um deine naechstenliebe","sorgen computer sie"
  121. 2310 [131]"sprechen sie von mir oder generell von menschen?"
  122. 2320 [131]"haben sie angst vor maschienen?","warum reden sie von computern?"
  123. 2340 [131]"was glauben sie was maschienen mit ihrem problem zutuhen haben?"
  124. 2350 [131]"glauben sie nicht, dass computer menschen helfen koennen?"
  125. 2360 [131]"was misfaellt ihnen an maschienen?"
  126. 2370 [131]"hast du irgentein psychologisches problem?"
  127. 2380 [131]"was schliesst du daraus?","ach so.","i bin nich sicher ob i dik versteh"
  128. 2410 [131]"komm, komm erklaere mir was du meinst","schmuecke das bitte etwas aus"
  129. 2430 [131]"das ist interressant.","wiso hast du geldprobleme?"
  130. 2450 [131]"glaubst du, geld waere alles?"
  131. 2460 [131]"bist du sicher, dass geld dein eigentliches problem ist?"
  132. 2470 [131]"ich find wir solten uber dich sprechen,nich uber mich","was is mit mir?"
  133. 2490 [131]"wiso bringst du immer wieder meinen namen ein ???????"
  134. 2530 [131] 1,3,4,2,6,4,6,4,10,4,14,3,17,3,20,2,22,3,25,3,28,4,28,4,32,3,35,5,40,9
  135. 2540 [131] 40,9,40,9,40,9,40,9,40,9,49,2,51,4,55,4,59,4,63,1,63,1,64,5,69,5,74,2
  136. 2550 [131] 76,4,80,3,83,7,90,3,93,6,99,7,116,3,113,3,106,7
  137.